|
|
<%
Uname=request.QueryString("name")
Uname=replace(Uname,"'","")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from WR_User where UName='"&Uname&"'"
set rs = conn.execute(sql)
if not rs.eof then
assname=rs("UName")
asssex=rs("USex")
if asssex="0" then
asssex="男"
else
asssex="女"
end if
asspro=rs("UPro")
asscity=rs("UCity")
assemail=rs("UEmail")
assAdr=rs("UAdr")
assdate=rs("UDate")
asstel=rs("UTel")
end if
rs.close
set rs=nothing
%>
| 会员信息 |
| 会员名： |
<%=assname%> |
| 注册时间： |
<%=assdate%> |
| 省份城市： |
<%=asspro%> <%=asscity%> |
| 联系电话： |
<%=assetel%> |
| 电子邮件： |
<%=assemail%> |
| 性别： |
<%=asssex%> |
| 地址： |
<%=assadr%> |
|
|
|